COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		DIMENSION X(14),Y(14),INK(14),IBUF(5000)
C00004 ENDMK
C⊗;
	DIMENSION X(14),Y(14),INK(14),IBUF(5000)
	COMMON /FAC/JFAC,KFAC
	DATA X/0.,.7,.7,.6,1.8,2.6,3.1,3.9,3.5,3.4,4.5,4.8,5.,5.3/,
	1 Y/0.,.5,.3,.1,.5,-.3,-.8,.5,.6,.8,1.1,.7,1.,1./,
  	1 INK/3,3,3,2,2,2,3,2,2,3,2,2,2,2/
CC	1 INK/3,2,3,2,2,2,3,2,2,3,2,2,2,2/
	TYPE 1
	ACCEPT 2,JFAC,KFAC
	IF(JFAC.EQ.0)JFAC=100
	IF(KFAC.EQ.0)KFAC=100
	CALL PLOT (15.,14.75,-3)
	CX=0.0
	CY=0.0
CC	ANG=5
  	ANG=1.5
CC	KK=120
  	DO 30 JJ=1,120
  	KK= 50
  	DO 30 JJ=1,120
	CALL PLOTS (IBUF,5000,1)
	KK=KK+1
CC	DO 20 J=1,240
  	DO 20 J=JJ,KK
CC	CALL CURVE(X(2),Y(2),13,5,1)
  	DO 10 K=1,14
  	CALL PLOT (X(K),Y(K),INK(K))
 10	CONTINUE
  	CALL ROTATE (X(2),Y(2),13,3.0,0.0,ANG)
CC	JFAC=JFAC*.9
CC	KFAC=KFAC*.9
  	ANG=ANG+.02
CC      JFAC=JFAC-.1
CC	KFAC=KFAC-.1
  	JFAC=JFAC-10
  	KFAC=KFAC-10
 20	CONTINUE
 30	CONTINUE
	CALL PLOT (0.0,-30.,-3)
	CALL PLOT(0.0,0.0,999)
	STOP
1	FORMAT(' TYPE X FACTOR AND Y FACTOR   '$)
2	FORMAT(2I)
	END